home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / dev / amos / AMOS0398.lzh / AMOSLIST / 000313_amos-request@svcs1.digex.net_Sun Mar 29 08:29:21 1998.msg < prev    next >
Text File  |  1998-04-01  |  11KB  |  225 lines
  1. >From amos-request@svcs1.digex.net  Sun Mar 29 08:29:21 1998
  2. Received: from svcs1.digex.net (svcs1.digex.net [204.91.197.224])
  3.     by pony-2.mail.digex.net (8.8.8/8.8.8) with ESMTP id IAA17172
  4.     for <mcox@access.digex.net>; Sun, 29 Mar 1998 08:29:21 -0500 (EDT)
  5. Received: (from daemon@localhost)
  6.     by svcs1.digex.net (8.8.5/8.8.5) id HAA25951
  7.     for amos-out; Sun, 29 Mar 1998 07:20:45 -0500 (EST)
  8. Received: from pony-1.mail.digex.net (pony-1.mail.digex.net [204.91.241.5])
  9.     by svcs1.digex.net (8.8.5/8.8.5) with ESMTP id HAA25948
  10.     for <amos-list@svcs1.digex.net>; Sun, 29 Mar 1998 07:20:44 -0500 (EST)
  11. Received: from mail-in2.inet.tele.dk (mail-in2.inet.tele.dk [194.182.148.151])
  12.     by pony-1.mail.digex.net (8.8.8/8.8.8) with SMTP id HAA11144
  13.     for <amos-list@access.digex.net>; Sun, 29 Mar 1998 07:20:43 -0500 (EST)
  14. Received: (qmail 6988 invoked from network); 29 Mar 1998 12:20:42 -0000
  15. Received: from post10.tele.dk (194.239.134.174)
  16.   by mail-in2.inet.tele.dk with SMTP; 29 Mar 1998 12:20:42 -0000
  17. Received: from post10.tele.dk ([194.239.152.122]) by post10.tele.dk
  18.           (Netscape Mail Server v2.02) with SMTP id AAC51398
  19.           for <amos-list@access.digex.net>; Sun, 29 Mar 1998 13:20:38 +0100
  20. From: Rune Zedeler <rzedeler@post10.tele.dk>
  21. To: AMOS List <amos-list@access.digex.net>
  22. Date: Sun, 29 Mar 1998 13:16:32 +0100
  23. Message-ID: <yam7392.1632.139884992@post10.tele.dk>
  24. In-Reply-To: <1A72ED777AF@mail-gw.uclan.ac.uk>
  25. X-Mailer: YAM 1.3.5 [040] - Amiga Mailer by Marcel Beck
  26. Subject: Re: Amos Robots?
  27. MIME-Version: 1.0
  28. Content-type: multipart/mixed; boundary="BOUNDARY.7392.1632.139884992.2"
  29. Status: O
  30. X-Status: 
  31.  
  32. Warning: This is a message in MIME format. Your mail reader does not
  33. support MIME. Some parts of this message will be readable as plain text.
  34. To see the rest, you will need to upgrade your mail reader.
  35.  
  36. This message was composed on an Amiga using the YAM mailer.
  37. YAM is available at http://bitcom.ch/~mbeck/
  38.  
  39. --BOUNDARY.7392.1632.139884992.2
  40. Content-Type: text/plain; charset=iso-8859-1
  41. Content-Transfer-Encoding: quoted-printable
  42.  
  43. On 27-Mar-98, Lee wrote:
  44.  
  45. >inparticular) I thought I would write Amos Robots.
  46. >Is there any interest?
  47.  
  48. Long time ago I actually made something likewise in AMOS.
  49. The program is very badly documented and it's long time since I made it, =
  50. so
  51. I'll probably use some time on remembering what it is all about...
  52.  
  53. But there is some sort of board with some robots on.
  54. The robots can read data about all the robots and about the board (The bo=
  55. ard
  56. is a 2D array, where 0 means open floor, -1 means wall, and >0 means robo=
  57. t
  58. number N (the robot itself has number one))
  59.  
  60. The arrays:
  61. BOARD(,): the board (commented above)
  62. RX(): Robot x-coord
  63. RY(): Robot y-coord
  64. RDIR(): Robot direction (0:right, 1:down, 2:left, 3:up)
  65. RENE(): Robot Energy (0:dead, 10:as healthy as can be)
  66. NAME$(): The name of the robot (can't be changed after start)
  67.  
  68. Global variables:
  69. KOM$: The robots can use this variable to "talk" (that is: write comments=
  70.  on
  71. the screen. If they put anything in this string, then the string will be
  72. printed after the robot hasa returned)
  73. NUM: Number of robots
  74. WX: Width of board
  75. WY: Heigth of board
  76. SR: Status register. This is the only changeable variable that will be
  77. reserved from call to call. Use it for whatever you want.
  78.  
  79. The robot programs are included into procedures, so it is illegal to make=
  80.  
  81. procedures in you programs (as it is illegal to have procedures nested in=
  82. to
  83. each other)
  84.  
  85. The procedure returns:
  86.  
  87. -2: Shoot (if there is a robot in front, then the robot will loose one
  88. energy-point)
  89. -1: Walk (Walks one step forwards. If there is a wall then nothing. If th=
  90. ere
  91. is a  robot in front then the robot is pushed (moved along))
  92. 0: Nop
  93. >0: Add N to RDIR (that is: 1:turn right ; 2:U-turn ; 3:turn left)
  94.  
  95. First time the procedure is called then RX(1)=3D-1. Then the robot shall =
  96. not do
  97. its move. Instead it shall return it's name...
  98.  
  99. A robot program can look something like this:
  100.  
  101. If RX(1)=3D-1 : Pop Proc["C0000L ROBOT"] : End If
  102. X=3DRX(1) : Y=3DRY(1) : DIR=3DRDIR(1) : ENERGY=3DRENEa(1)
  103. ( find out what to return here )
  104. Pop Proc[RETURN_VALUE]
  105.  
  106. The gfx havent been made yet, so we are talking block gfx, and the game n=
  107. eeds
  108. overall finish.
  109. Included a little screen shot :) (all robots are controlled by the same
  110. program: "Lemmus Opus #1")
  111. But it sure is playable :)
  112. If you are interrested then I'll spend some time on commenting it and  po=
  113. sting
  114. it here...
  115. I think that I've mentioned all the rules above. But if there's nothing t=
  116. hat's
  117. not clear, then let me know!
  118.  
  119. -- =
  120.  
  121.  
  122.          /=AF\ __    __ /=AF=AF=AF=AF=AF\           _         Rune Zedele=
  123. r
  124. ________/ /// \\__/ \\\  ---/           \=AF-_      Peter R=F8rdams Vej 1=
  125. 9
  126. \      / //=AF|  \\/  ||=AF\ \\=AF=AF=AF=AF=AF=AF=AF=AF=AF=AF=AF=AF=AF=AF=
  127.    =AF-_   2800 Lyngby
  128.  )    / //  | \ ` / ||  \ \\ Lemmus of Efreet  -  Denmark
  129. /    / =AF=AF=AF=AF=AF\\|\-'/ /=AF=AF=AF=AF=AF \\____________   _-=AF
  130. =AF=AF=AF=AF=AF\------'/||=AF=AF| \------'/           /_-=AF      rzedele=
  131. r@post10.tele.dk
  132.       =AF=AF=AF=AF=AF=AF\-'/  \-'/=AF=AF=AF=AF=AF=AF            =AF      =
  133.    Tel: +45-45871730
  134.              =AF=AF    =AF=AF
  135.  
  136. --BOUNDARY.7392.1632.139884992.2
  137. Content-Type: image/gif; name="TheGnuKrigShot.gif"
  138. Content-Transfer-Encoding: base64
  139.  
  140. R0lGODdhgAIAAfIAAAAAAKDg8OCAIKAAAKAAoAAAoACgoAKgACwAAAAAgAIAAQID/ii63P4w
  141. ykmrvTjrzbv/YCiOZGmeaKqubOu+cCzPdG3feK7vfO//wKBwSCwaj8ikcslsOp/QqHRKrVqv
  142. 2Kx2y+16v+CweEwum8/otHrNbrvf8Lh8Tq/b7/i8fs/v+/+AgYKDUgGGh4iJiouMjYcgjpGS
  143. k5SVlomQl4qZmp2en6ChoqOkpaanppyfMKiaqq2wp6+ds7G2t7i5uru8lLWXrL2bH8LFkb+W
  144. yMbLzM3Oz6LKvi/O0tC31pLZ19zd3t+2247BzOLgo+aM6efs7e7v68Mu1cTv4fWg8fb7/P27
  145. +ojILQPorxFBQwcLKlzIsFJCgcYSNgzwEN/EixgzOrTo/gliMYkNK3rQSLKkSYQcaVFrBpKh
  146. yA4nY8pc+JIFvZEztaV0tTOnz5/Qaq64CROoup7JkBpdyhSXUBUTWw5UOg1nPqqTpHa80RQT
  147. Vp1Gon5t9zRDtLHj0MbC0TWg2qNhQ779VhbDWaur5qJi2xYl3q1xXertVvfC3aJX/37k2pfi
  148. YLeBaT6+VtjCYQ6XNxCl0dixYp6RFWpd/BnYZL+I85bmxbdv5R5iV+97TSGzBttmWTJ2fdpz
  149. kdipRfemPQG3Xd02OhPXARyzXNlVg6uEnrW38ZW8qYP9/Vy6v+URrlsONRp0DeXDjzTX3N15
  150. Yu+mtR+zTn53W/CtJctnh/+B/vgK/9WG3HmN9ZdcgfRlB19nrCXIYETY3edgV+U9uNF+Fnrj
  151. EVMVGtVhhvNhCCJlEVI4YVMfjgjXgiqCs+FSKfoUY4uQsUgjYSWieCKHO964yIw+BjgCeiKq
  152. COSNRwapWgtE2qhkki1CqaR5NiFY5IhSYtnjlKS86OGWQGUJophcVjePlU4GSaaFa5aZ1pkK
  153. uudmjXLO2SWYdk7HXTl45unnn3we+B4Rm7EH6KGICibokoQOWGeikEbKn32A7TnVlZJmqik2
  154. lOrZaKBpbirqqLDkV+mnl4ZK6qqsDjqDkMw5amirtNYKawq3mkqaqrb26usjnVI5RKG3/Wrs
  155. sSty/lZfaLs+iuyzvuoqrBDE5gbttdEGG5+lEGKK7bd+SrttlX8a2EC1XobZpzvmMnFouwug
  156. myOP3mYErxLvplfvnYuauO9F9yaR779t+qZsnLP6y2uyWwy88I/rhkggwsVSbC2jDQMasLxw
  157. SvjvehVjrIXDzo6bcLOvolnylwR/QfLJ017c7cQeP1xSwEi8HPKpMPciLss2k4SzehrrG3Qq
  158. 2gK9srote6GzzJ723GC/On7cntQXdvH0ca7ujLIMTS7909DMgpsLGmFjbXap8659jxlpe+32
  159. 20weQsDdeOedNzsH9O23IX7/PeYZcUN97ACIJ6644ntFqPfjePMd+AGA/k+uJdwqq23r4pwn
  160. 3njHkEMueeCVkz445hZzDW3nnX9etyGP+zM55QHMfnkZhavuNueukxtA6LGfM/vwtGeIduZy
  161. G8s677I4DvzewhNv+em4I2+48ssz3jzoz0cevfSCG0+49bojm732SHc8N6eo1yz2+qWkC3/8
  162. 46du2Pzsv44/2+0r/P7+XcOVrJKXFKoBkE0RkwnZADTA6xWQZgcUn9XsN54AooBjDLRg2yJI
  163. vvuVy2i+m9n/JHYwDiJwgu7T3HZC+DUHZq2EJmRQwUDmwuiwUBgLHGEMx5bAmOSwOA0sX8zk
  164. t0OlqdBHP5QABgWkQfUVMYUE5FISwxNED4os/gZPlGEPTzJFCCwRiE3UXxb9d0QkgXAoVazg
  165. FYk4xpnM8GpRtCEaQaVDgyStjTLaokm66J8OqpGMcYTHGQO5wjLaEYXCKRuM9KghRm7vaMBq
  166. GiRRU0cuEo2CGYRiDQUpyUpCrJOGdEcBRklKQ5CylF5RpBEJ6UZHpm+SBgvlJ2H5RlKccpSm
  167. vKU8uFU1WNJQiP3Y2LJo6cpW3LIAuTzlLlEFyE3mpJZrtCLPWPkmYiKyGcdMJirpNCw/ZrKZ
  168. wOSHMMPIxGj+sSHHTCcyU8lLevkSjs4kyyDjWU1PLlOW7FBnNtnJzF7aU2jF5Jc1B/pPblLz
  169. HfrUJT+7iclyglOa/gUZpzm/GbWDWlKVTHunojSaqoJGkqD4XKhF93hJTYYzox4NyjxPKseR
  170. 3tOlAMUoHuEHzTwVjI0zXVtN7XTTDeZ0fTudU0+d+NP5BdVNQxVjUY0aUEQl9YZLndtRy/TU
  171. OUaVqdfsVVWhclX8TVWKTcVpV5H11SltVYBjBWpTtwZRHPo0rdAq65PC+la4knWtRcuqybhq
  172. 11b8zK5nZenZ6trXaWKxsC+l51roSlTEDhOGjg1sW31GWMc+ELKIlew53dpYyxpWrFHVLEU5
  173. q1TPThSqfRWtQ1t4QdOi445wVS0YO2pV1562tpFlLEc/ewLb5qq3rpWtEtNYAt8+NmWm/hUu
  174. FemIW+NeFrmeVa4XiUsC596Wr9HVbUpfK9O5GhCpsLXuYrurpvCW97vizV8/hWpeJLZ3SgaI
  175. r3znO9/brRe86AVrfudE3/7K174MDdd7afRX/vq3vwCmVl4hyNMBBwnB3m0nfhnM3v266cAQ
  176. lqCEqepgI3X4Rhimb4KDwNbO6pfCfgpxfal3Xw5b+LwoTi/dWnxizE7YxjIe74ZrDF2bfjjH
  177. 180BkGkl11WBYcitKjKpjoxkI+P1WExu8qiUPGWXSbnKej1glK+sKSqLastclpSXNwXmMENq
  178. zF22spnF/GRjlXnNJR5tYd8M5w9mGYB0rrOP77y/nC14uwU2/tNu4cxHH8R5tUOsbD1DqudZ
  179. AlrNAgYl2I4L00YnVrCFHNmfGf1RHL+Q05buNKhjqWk7g3TS5JxtqHm72b1m4dCqruhhUz3c
  180. VQd5urSOAqxrfWvg5hrXtpY1pkmYMVM/+sXErnSwCw2bTSubkj0W9mSDLehja83ZimUYqnvt
  181. AGqzWs7PLXWkTz1rbp/L24ludbhfje1hL3rb30Y0upOdbUfP4ZfTnk2bRRjtedMbCPhWt775
  182. zMkY+9veCt7odr/I64ea+OAiJTE83X0ONPeu3xBHuMQVPmqGL9ekij64nzn+7GdY/JGezrio
  183. E66fQZN24RMPub9H3nKYM7fkAS+t/sojDvCYC9weJ39lyndO80S6nLIEZ9ePqV30iO5b2j/P
  184. I7Ih3vTvPD3d4EYpxne+ckJ4/etgD7vYx072spv97GhPu9rXzva2u/3tcI+73OdO97rb/e54
  185. z7ve9873vvv974APvOAHT/jCG/7wiE+84hfP+MY7/vFmAIDkJ0/5ylv+8pjPvOY3z/nOe/7z
  186. oA+96EdP+tKb/vSoT73qV8/61rv+9bCPvexnr3nI2/72uM+97nfP+977/vfAD77wh0/84hv/
  187. +MhPvvKXz/zmO//50I++9McQAMQ5w/qSQB8srI/9Q3TfbRTnOkYu+H1jlH8R2D+/Kbg/AER4
  188. ThPni7/8/udP//ov7+YfF7/Ui6t+7Xku/eznfe1XfQNIgN+nfooAgIawOAK4gAWofQnIPBBI
  189. CfZXgRZ4gfWHf8Cmf8/UW+engK3TOgTogCT4CQo4gih4gggYgSjYgPCHgTAYgzGogX3EgftX
  190. XR/IgNw3gjuogg/4fpfggyV4ggZYgOjHPCUYhDK4hEw4fzTYbTZ4g0OSg4nQfQE4hANIhUqI
  191. hUBIhC7ICFf4hZbQhGRYhkjIWjUYhQrkgQzogEQYhlbofxNIgV1ohAL4fm3YCGGYhGNohn5I
  192. hk94bmq4hiZwEStoWeE3iFZXiHfjDI0oCdATC434iHZDADR1P8oUCbi0EJtI/nW9RYnLAIqM
  193. 8IiieAqTaImViIqX0D2s2Iqu+IqwGIuleHFKtImdyAi32Au5eAi7iIvrJHKfqIqIAD2RQ4qn
  194. WImwo4qR+DvC2AjGmIzew4zJmIrNmAiiw4yzCImyuI3c2I3d6BSG0YuZGAAK1Qi2+IvjeI6S
  195. sIu96IueyIjV+Iyic43PKI2fUI/4iIr1qI32iIya4I0AGZACGTwzVhy4hErqmEuTkJAMuU7t
  196. qAgPSY7lqJDACI+KEDuTKI0ZmY/U2AkcaY/7uIwXSZD9aAkDeZIouY3gaBkNSZESuZAOGZMU
  197. mZCOEJEw+Y7FVYqiSInHOI0gGY/VyI8/GY376I+j/miJOxmU2piSTNmUobOSANKSL+mSmrhN
  198. UhmR7WiTvPiLMxeMkUiMyoiUYUmN+iiSlfCVQak30JiNyJiUHumUcBmXUCkg5TiOyXSTiGCX
  199. E2kJWjmVOFldE8GWiJhvotCXiqhj1WWYttCXdmlMyJSLivkrx2GWI8kQgmlrFxSZsKCVNOmY
  200. fimRXFkJCTWapFmapnmapxmIDPCTkXCZtpCNrumTFVlc4oiQBxmTj4mOMqlNeRma7jiVdbmb
  201. oOmbvalQjUkJqJmcyrmczKma8TKLaBmNRymbaCmbzgiUZ6mUmNlb7CiT6TSctjmTxCmau3mV
  202. wlmVn5meyMmc7Nme7rlN/mjYbadYltSpncNIn6yZn0J5lCIZm3qWmb6ZTQf5kgMqlcPZCeYp
  203. nluJlftEleT5nhAaoaXpnAqQnyFpn/74kUU5naDgn3UGoBAZmp14m1upoImgmcCJmyN6ng56
  204. ornpoggqoTI6o3uJdACioWM5CdVpofYJmxhqlF1ZiA2aiSvqlytqm/DJl1ZJnMZ5nDAKmeNZ
  205. lTQ6pRJKoQKwlmGZlD9aktgojGr5ljq6pZbWWugUpYMZdR0qpofpV70VX87gppKwYrHgpnB6
  206. CHUKfvcjp41wp/7Ap/N2QX4qDIGaCHA6qKRApwaACP+lCSrWqI76qJAaqZJqqPRjGYWaqI5A
  207. /qm3MKiaaqeYOpvVFagr9l+Xmqh1eqmeeqedGgCoyqpy2qquSqn+ZQh6WgmTequ4mqu6OpfF
  208. IaqLGquaCquviqmd6qerSquf+qdtmqzI2qyzOquu2qzR+gmtWq3Eeq2UgKiEyqzZqqve+q3g
  209. KmLq1aumaq2eOgnmOq2wGgmyKq7nCqpDYqwiRqfRSq/pCqydkK73Wqvb6q7TegnhGrACe6u8
  210. qkT6+qmrerDSWqzcCrANu2zLqgh8eqrl+q7rKq2WYK2/erH/ugjaqqgPy64DO7Iki2EFGx4K
  211. i7EiS7ELi617+rDHeqz/uazDKqwVi7Hi6q8Zu7ENm7P8uq0dG7Td/lqyREu0Jztd7lqrv5qp
  212. zKqnOmurIQuyKkemDCGzsUWYoWC1ayp0Q9I3zuC1kmA6seC1YHsIZYun40GZ1qim3+ChM1uI
  213. Z2sMcbsIYDu3pkC2xVM7dhu24NO3fvu3gBu4YosjlrGhlWkMPkoJbktovWW3pvM3dYu3Zks7
  214. ZTu4e5sIkVs6lUu5xTO4ijA8mtsJgju6pFu64OMihgGdRKm2GZqlOeqaOqmmi2tmFzS3mQu6
  215. oKu3lbO7n5C5uvu7vnu5mEs5cSu8jWC6yJu8o4u6hSuW+MmTW4qjPumfgkmSXOpttZu3miu5
  216. xNu9tQO8nDu5xssIwRu+4Cu+2ju808O7/pegvO77vsTDvDf6vPh5vYsgvfp5naEwu2GWvZ+r
  217. vZv7u+crwJOrCeUbPr6LCMIruQqcvpMAvxAMwfJbG/hrv/e7utNbvxfMofsZpMVlO6ErwAws
  218. wo/ruZUgto5bwuFDvt7bwKIbwTCcvBMMRF/apWsbvc24jDW8ijg8tb7GEOM7Z1ibplsbn9N3
  219. xEicxEq8xEzcxE78xFAcxVI8xVRcxVZ8xVicxVq8xVzsd7T3xWAcxmI8xmRcxmZ8xmicxmq8
  220. xmzcxm78xnAcx3I8x3Rcx3Z8x3icx3q8x3zcx378x4AcyII8yIRcyIZ8yIicyIq8yIzcyI78
  221. yJAcyZI8yZRcCcmWfMmYXHkJAAA7
  222.  
  223. --BOUNDARY.7392.1632.139884992.2--
  224.  
  225.